Shareware Grab Bag/Shareware Grab Bag.iso/003/db3plsar.arc/INV.PRG

Text File | 1986-08-04 | 3.8 KB | 159 lines

SET HEADING OFF
******************** (INV.PRG)
CLEAR
SET SCOREBOARD ON
SET INTE ON
SET DELIM OFF
SET BELL OFF
CALL NUMON.BIN
STORE '                              ' TO MNAME
STORE 0.00 TO MAMT,MTOT,MOLD,MOLDY
STORE 0 TO T
STORE 0 TO REC
USE INV
GO BOTT
STORE RECNO() TO REC
STORE REC-1 TO REC
DO WHILE .T.
   USE CUST INDEX ACCT
   SET CONFIRM ON
   STORE '     ' TO MINV
   STORE '         ' TO MPO
   STORE '    ' TO MACCT
   STORE ' ' TO MSALES
   SET EXACT ON
   CLEAR
   @ 4,1 TO 4,79 DOUBLE
   @ 6,23 SAY 'Do you want to enter an invoice?'
   @ 13,32 SAY 'Last entered:'
   IF T<>0
      @ 14,T SAY MNAME
   ENDIF
   @ 15,27 SAY MAMT
   @ 17,1 TO 17,79 DOUBLE
   ?
   ?
   STORE ' ' TO OPTION
   WAIT '                                Press Y or N  'TO OPTION
   IF OPTION='N'
      CALL NUMOFF.BIN
      CLEA
      @ 10,15 SAY 'The first invoice was entered previously'
      TYPE LINE.TXT
      USE INV
      DISP ALL OFF FOR RECNO()>REC 'Account # '+ACCT,'Invoice # ì
'+INVNO,'  Price $',+NET,' Date of invoice',NEWDATE
      TYPE LINE.TXT
      WAIT '.............................Press ì
anything..................................'
      CLEA
      RETURN
   ENDIF
   IF OPTION='Y'
      STORE '                             ' TO MNAME
      @ 2,0 CLEAR
      @ 6,25 SAY 'Enter account number ' GET MACCT PICTURE 'XXXX'
      READ
      IF MACCT='    '
         CLEA
         @ 15,30 SAY 'NO ACCOUNT NUMBER !! '
         ? CHR(7)
         LOOP
      ENDIF
      FIND &MACCT
      STORE SALES TO MSALES
      STORE LOWER(TRIM(NAME)) TO MNAME
      STORE LEN(TRIM(MNAME)) TO A
      STORE ALLPAY TO MTOT
      STORE NET TO MNET
      IF (EOF() .OR. BOF())
         SET TALK ON
         @ 2,0 CLEAR
         ? CHR(007)
         @ 6,20 SAY " I can't find an account for # &MACCT "
         SET TALK OFF
         STORE '                              ' TO MNAME
         STORE 1 TO XX
         DO WHILE XX<70
            STORE XX+1 TO XX
         ENDDO WHILE XX<70
         LOOP
      ENDIF BOF()
      USE CUST INDEX ACCT
      FIND &MACCT
      @ 2,0 CLEAR
TYPE CUST.TXT
      @ 2,31 SAY 'Net due $ '+STR(NET,9,2)
      @ 5,2 SAY NAME
      @ 5,58 SAY ACCT
      @ 7,2 SAY ADDRESS
      @ 7,58 SAY DISC
      @ 9,2 SAY TRIM(CITY)+' ,'+STATE+' '+ZIP
      @ 9,62 SAY MTOT
      IF OLD_45 > 0.01
         STORE OLD_45 TO MOLD
         @ 12,1 SAY 'This account is 45 days past due by'
         @ 12,36 SAY MOLD
      ENDIF
      IF DISC='HOLD*COD'
         ? CHR(7)
         SET COLOR TO /W
         @ 10,25 SAY DISC
         SET COLOR TO W
      ENDIF
      IF OLD_60 > 25.00
         STORE OLD_60 TO MOLDY
         @ 12,56 SAY 'Over 60'
         SET COLOR TO /W
         @ 12,64 SAY MOLDY
         SET COLOR TO W
      ENDIF
   ENDIF
   @ 15,25 SAY 'Is this the correct account?'
   ?
   ?
   WAIT '                                      ? ' TO OPTION
   IF OPTION='N'
      LOOP
   ENDIF
   @ 2,0 CLEAR
   USE INV INDEX ACCTS
   SET TALK OFF
   APPEND BLANK
   STORE 0 TO T
   STORE LEN(MNAME) TO T
   S=T/2
   STORE (80-T)/2 TO T
   @ 4,T SAY MNAME
   TYPE INV.TXT
   @ 8,44  GET INVNO
   @ 10,44 GET PONO
   @ 12,44 GET NEWDATE PICTURE '99/99/99'
   @ 14,44 GET PRICE
   READ
   STORE PRICE TO MAMT
   STORE RECNO() TO RECNO
   REPLACE NET WITH PRICE
   REPLACE PAID WITH .F.
   REPLACE ACCT WITH MACCT
   REPLACE SALES WITH MSALES
   @ 2,(T+S-6) SAY 'Acct #'
   @ 2,(T+S+2) SAY MACCT
   @ 19,32 SAY 'Is this correct?'
   @ 20,0 SAY ' '
   WAIT '                                       ? 'TO OPTION
   IF OPTION='N'
      EDIT RECNO()
      REPLACE NET WITH PRICE
      CLEAR
   ENDIF
   USE CUST INDE ACCT
   FIND &MACCT
   REPLACE NET WITH NET+MAMT
   SET CONFIRM OFF
   @ 2,0 CLEAR
   STORE UPPER(MNAME) TO MNAME
ENDDO
SET EXACT OFF
RETURN